#!/usr/bin/perl
#use warnings;
print"Hello World ^^!\n";#this is a comment
##
@var1 = "tandaica0612\n"; #variable
$var2 = "toilatoi\n";
print $var2;
print @var1;
print `man echo`."\n"; # in ra lenh
print "x"x3;#xxx
print "\n";
print 5x3;#555
print "\n";
print 5*3;#15
print "\n";
print "5"*"3";#15
print "\n";
print "5tandaica"*"3";#15 se~ bi. hien. canh? bao' neu' de? che' do. hien. canh? bao'
print "\n";


